home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ivbsrc / msplash.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-09  |  508 b   |  21 lines
  1. Sub Main ()
  2.   CRLF$ = Chr$(13) + Chr$(10)
  3.   Msg$ = "Super Software, Inc." + CRLF$
  4.   Msg$ = Msg$ + "  Amazing Product" + CRLF$
  5.   Msg$ = Msg$ + "     (C) 1992"
  6.   Form1.Show
  7.   Form1.Picture1.Print Msg$
  8.   Form1.Picture2.Print "Loading Forms"
  9.   Beep
  10.   Load Form2
  11.   Load Form3
  12.   For I& = 1 To 200000: Next I&    'Delays just for demo
  13.   Form1.Picture2.Cls
  14.   Form1.Picture2.Print "Loading Data"
  15.   For I& = 1 To 200000: Next I&    'Delays just for demo
  16.   Beep
  17.   Form2.Show
  18.   Unload Form1
  19. End Sub
  20.  
  21.